home *** CD-ROM | disk | FTP | other *** search
/ Aminet 44 / Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso / Aminet / dev / src / ChunkyStartup2.lha / ChunkyStartup2K1 / ChunkyDebug.asm < prev    next >
Assembly Source File  |  2001-06-18  |  1KB  |  61 lines
  1. ;
  2. ; just a function to draw a 32bit value in hexadecimal
  3. ;  into a chunkyscreen with any bytesperrow.
  4. ; useful for debug !
  5.  
  6. ; phxass ChunkyDebug.asm I=include: M=68030
  7.  
  8.     XDEF    _ShowInt
  9.     XDEF    ShowInt
  10.  
  11. _ShowInt
  12. ShowInt
  13.         movem.l d0-d7/a0-a6,-(sp)
  14. ;d0 value
  15. ;a0 chunkyscreen
  16. ;d1 offset
  17. ;d2 modulo
  18.  
  19.         move.l  d2,d5
  20.         sub.l   #8,d5
  21.  
  22.         add.l   d1,a0
  23.         lea     hamfont,a1
  24.  
  25.         ;move.l #$00205f03,d0   d0=a afficher
  26.  
  27.         rol.l   #4,d0
  28.         move.w  #7,d1
  29. bcltps1:
  30.         move.l  d0,d2
  31.         and.l   #$f,d2
  32.         lsl.l   #8,d2   ;1carac=256
  33.         lea     (a1,d2.l),a2    ;a2=adresse carac
  34.         move.l  a0,a3   ;ecran+carac
  35.  
  36. ;--------------- a2 carac
  37.         move.w  #7,d7
  38. bcltps2:
  39.  
  40.         move.w  #7,d6
  41. bcltps3:
  42.         move.b  2(a2),(a3)+
  43.         addq.l  #4,a2
  44.         dbf.w   d6,bcltps3
  45.  
  46.         ;lea     312(a3),a3
  47.         add.l   d5,a3
  48.         dbf.w   d7,bcltps2
  49. ;---------------------------------
  50.         add.l   #8,a0   ;prochain carac.
  51.         rol.l   #4,d0
  52.         dbf.w   d1,bcltps1
  53. ;------- abnormal
  54.                movem.l (sp)+,d0-d7/a0-a6
  55.         rts
  56.   
  57. ;----------------------------------------
  58.         even
  59. hamfont:        incbin  hamfont
  60.  
  61.